//   
init_arr %hod (1) 848, 203 1265456     //  
init_arr %LevVerh (1) 849, 260    //   


set linedelay 0
set #handle workwindow
log mode compact
log open
wait 200
set windowpos 0 0 500 400 loghandle
log clear
log close
set workwindow windowhandle
set windowpos 0 400
set workwindow #handle
set #startX %LevVerh [1 1]
set #startY %LevVerh [1 2]
set #stepX 41
set #stepY 41
set #endX #startX + #stepX * 5
set #endY #startY + #stepY * 5

:start
set size(%output)
while_not %hod [1 1] %hod [1 2] %hod [1 3]    //    
    wait 100
end_while
wait 300
log clear
set timer


set #a findcolor (#startX #startY #endX #endY #stepX #stepY (0-16777215) %arr)
//save_array %arr C:\Users\abc\Desktop\ColorInput.txt
if  size(%arr) > 0
    set #sizeInput size (%arr)
    set #sizeOutput 0
    set size(%output)
    for #i 1 #sizeInput  1 //   .
        set #duplicat 0 //   ,    .
        for #n 1 #sizeOutput 1          //   .
            if  %arr[#i 3] = %output[#n]  //         .
                set #duplicat 1         //  ,    .
                break            //    .
            end_if
        end_for
        if  #duplicat = 0 //     .
            set #sizeOutput #sizeOutput  + 1 //    .
            set %output[#sizeOutput ] %arr[#i 3] //     ,   .
        end_if
    end_for
end_if

if  size(%output) != 5
    goto start
end_if
printscreen 0 0 0 0 0 C:\Nebesa.jpg
for #i 1 6
for #j 1 6
set #z #z + 1
    set %setka [#i #j] %arr [#z 3]
end_for
end_for
save_array %setka C:\SetkaNebesa.txt

log   C:\Nebesa.jpg
log   C:\SetkaNebesa.txt
End_script